VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsLoaiNguoiDung"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private m_iMaLoaiNguoiDung As Integer
Private m_sTenLoaiNguoiDung As String

Public Property Get MaLoaiNguoiDung() As Integer
    MaLoaiNguoiDung = m_iMaLoaiNguoiDung
End Property

Public Property Let MaLoaiNguoiDung(ByVal iMaLoaiNguoiDung As Integer)
    m_iMaLoaiNguoiDung = iMaLoaiNguoiDung
End Property

Public Property Get TenLoaiNguoiDung() As String
    TenLoaiNguoiDung = m_sTenLoaiNguoiDung
End Property

Public Property Let TenLoaiNguoiDung(ByVal sTenLoaiNguoiDung As String)
    m_sTenLoaiNguoiDung = sTenLoaiNguoiDung
End Property


'---------------------------------------------------------------------------------------
' Procedure : SelectAll
' Date      : 27/10/2011
' Purpose   : Load danh sach tat ca record cua table co trong file du lieu
'---------------------------------------------------------------------------------------
Public Function SelectAll() As ADODB.Recordset
   On Error GoTo SelectAll_Error

    Call OpenConnection
    ' Create a Recordset by executing an SQL statement.
    Set SelectAll = g_ObjADOConn.Execute("SELECT * FROM LoaiNguoiDung")

   On Error GoTo 0
   Exit Function
SelectAll_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure SelectAll of Class Module clsLoaiNguoiDung"
End Function

